-- background: 2687 from stack: in
-- bmap block id: 3078
-- flags: 0000
-- background id: 0
-- name: Main Bkgnd
----- HyperTalk script -----
on newCard
  tabKey
end newCard

on enterKey
  go next
end enterKey





-- part 3 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=469 top=25 right=46 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 11045 / 11045
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  play "hastalavista"
  --repeat while the sound is not "done"
  --wait 1 sec
  go to card id 5341 of stack "HOME"
  --end repeat
end mouseUp




-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=257 top=298 right=320 bottom=300
-- title width / last selected line: 0
-- icon id / first selected line: 22308 / 22308
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Multi-Next
----- HyperTalk script -----
on mouseDown
  visual scroll left
  go to next card of this bkgnd
  put the ticks into tickHolder
  repeat until (the mouse is up)
    if (the ticks - tickHolder) > 30
    then
    go to next card of this bkgnd
    put the ticks into tickHolder
  end if
end repeat
end mouseDown



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=215 top=298 right=320 bottom=258
-- title width / last selected line: 0
-- icon id / first selected line: 19381 / 19381
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Multi-Prev
----- HyperTalk script -----
on mouseDown
  go to prev card of this bkgnd
  put the ticks into tickHolder
  repeat until (the mouse is up)
    if (the ticks - tickHolder) > 30
    then
    go to prev card of this bkgnd
    put the ticks into tickHolder
  end if
end repeat
end mouseDown



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=443 top=275 right=312 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual iris close to grey
  visual iris open
  pop card
end mouseUp



-- part 8 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=54 top=32 right=56 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 1280
-- line height: 16
-- part name: Title
----- HyperTalk script -----
on enterInField
  Set name of this card to field "title"
end enterInField


-- part 18 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=38 top=69 right=140 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Body


-- part 20 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=394 top=311 right=333 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go LImacSTACK
----- HyperTalk script -----
on mouseUp
  push cd
  convert the date to dateitems
  put item 2 of it into stackMonth
  go stack "LImacSTACK."& stackMonth & "/89"
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=24 top=311 right=333 bottom=135
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go Help Stack
----- HyperTalk script -----
on mouseUp
  push cd
  put fld 1 into whatFind
  go card id 106499 of stack "Help" -- first cd of Function section
  find whatFind in fld 1
  if the result is not empty then go card id 103939 of stack "Help"
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=436 top=25 right=46 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  push cd
  visual wipe down to black
  visual wipe up
  go card "Help"
end mouseUp